PlantsStand Derived Type

type, public :: PlantsStand


Components

Type Visibility Attributes Name Initial
type(Practice), public :: thinning
type(PlantsCohort), private, POINTER :: first => null()
integer(kind=short), private :: i
integer(kind=short), private :: j
integer(kind=short), private :: lenght = 0

Source Code

TYPE PlantsStand ! list of cohorts
    TYPE (PlantsCohort), POINTER, PRIVATE :: first => null()
    !TYPE (PlantsCohort), POINTER, PRIVATE :: last => null()
    !TYPE (PlantsCohort), POINTER, PRIVATE :: iter => null()
    INTEGER (KIND = short)      , PRIVATE :: lenght = 0
    INTEGER (KIND = short)      , PRIVATE :: i !row of the stand in grid plants_mask
    INTEGER (KIND = short)      , PRIVATE :: j !column of the stand in grid plants_mask
     TYPE (Practice)             :: thinning
END TYPE PlantsStand